home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / config.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  2.6 KB  |  110 lines
  1. G4C
  2.  
  3. winbig -1 -1 400 39 "CLI-Master Configuration"
  4. winsmall -1 -1 400 39
  5. wintype 11010001
  6. varpath "climaster/*"
  7.  
  8. xonload
  9. ifexists variable ICONSTART
  10. and $ICONSTART = YES
  11.     update config.g 3 1
  12. else
  13.     update config.g 3 0
  14. endif
  15. guiopen config.g
  16.  
  17. xonopen
  18. update config.g 1 0
  19. gosub config.g matchitem
  20.  
  21. xonrmb
  22. guiclose config.g
  23.  
  24. xonclose
  25. ifexists file env:cmtt
  26.     delete env:cmtt
  27. endif
  28. guiquit config.g
  29.  
  30.  
  31. xcycler 0 0 350 13 "" cfg_item
  32. gadid 1
  33. cstr "Default Text Editor" "TXTEDITOR"
  34. cstr "Multi-Format Picture Viewer" "PICVIEWER"
  35. cstr "8SVX/WAV Sound Sample Player" "SVXPLAYER"
  36. cstr "Multi-Format Module Player" "MODPLAYER"
  37. cstr "AmigaGuide Program" "GUIDEPROG"
  38. cstr "PowerPacked Text Reader" "PPTXTPROG"
  39. cstr "Stop Music From Playing" "STOPMUSIC"
  40. cstr "JPEG/JFIF Picture Viewer" "JPGVIEWER"
  41. gosub config.g matchitem
  42.  
  43. xbutton 350 0 50 13 Open
  44. reqfile -1 -1 250 -80 "Choose File." load cfg_strg SYS:
  45. update config.g 2 $cfg_strg
  46. $cfg_item = $cfg_strg
  47. setgad config.g 2 on
  48.  
  49. xtextin 0 13 400 13 "" cfg_strg "" 100
  50. gadid 2
  51. $cfg_item = $cfg_strg
  52. gosub config.g setvars
  53.  
  54. xbutton 0 26 75 13 Save
  55. gosub config.g makelist
  56. launch 1 'cmst:bin/filetott from env:cmtt to cmst:climaster'
  57. xonreturn 1
  58. guiclose config.g
  59.  
  60. xbutton 75 26 75 13 Use
  61. gosub config.g setvars
  62. guiclose config.g
  63.  
  64. xbutton 150 26 75 13 Restore
  65. ttget cmst:climaster
  66. gosub config.g setvars
  67. guiclose config.g
  68.  
  69. xcheckbox 230 27 26 11 "AppIcon Startup?" ICONSTART YES NO off
  70. gadid 3
  71. gadtitle right
  72. climaster/ICONSTART = $ICONSTART
  73.  
  74. xroutine matchitem
  75. if $cfg_item == "txteditor"
  76.     update config.g 2 $TXTEDITOR
  77. elseif $cfg_item == "picviewer"
  78.     update config.g 2 $PICVIEWER
  79. elseif $cfg_item == "svxplayer"
  80.     update config.g 2 $SVXPLAYER
  81. elseif $cfg_item == "modplayer"
  82.     update config.g 2 $MODPLAYER
  83. elseif $cfg_item == "guideprog"
  84.     update config.g 2 $GUIDEPROG
  85. elseif $cfg_item == "pptxtprog"
  86.     update config.g 2 $PPTXTPROG
  87. elseif $cfg_item == "stopmusic"
  88.     update config.g 2 $STOPMUSIC
  89. elseif $cfg_item == "jpgviewer"
  90.     update config.g 2 $JPGVIEWER
  91. endif
  92. setgad config.g 2 on
  93.  
  94. xroutine makelist
  95. ..cmtt = "ICONSTART=$ICONSTART\nTXTEDITOR=$TXTEDITOR\nPICVIEWER=$PICVIEWER"
  96. append env:cmtt "\nSVXPLAYER=$SVXPLAYER\nMODPLAYER=$MODPLAYER"
  97. append env:cmtt "\nGUIDEPROG=$GUIDEPROG\nPPTXTPROG=$PPTXTPROG"
  98. append env:cmtt "\nSTOPMUSIC=$STOPMUSIC\nJPGVIEWER=$JPGVIEWER"
  99.  
  100. xroutine setvars
  101. climaster/ICONSTART = $ICONSTART
  102. climaster/TXTEDITOR = $TXTEDITOR
  103. climaster/PICVIEWER = $PICVIEWER
  104. climaster/SVXPLAYER = $SVXPLAYER
  105. climaster/MODPLAYER = $MODPLAYER
  106. climaster/GUIDEPROG = $GUIDEPROG
  107. climaster/PPTXTPROG = $PPTXTPROG
  108. climaster/STOPMUSIC = $STOPMUSIC
  109. climaster/JPGVIEWER = $JPGVIEWER
  110.